perm filename PUREP.6[MAC,LSP] blob sn#555019 filedate 1981-01-07 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	-*-MIDAS-*-
C00003 ENDMK
CāŠ—;
;-*-MIDAS-*-
TITLE PUREP/WRITEABLEP
.insrt fasdfs.mid[mac,lsp]
.fasl

; This is a file with two primitives, WRITEABLEP and PUREP
; Note labels 'purep' and 'writeablep' exist only for the sake of TAGS

.entry PUREP SUBR 002
purep:	hrrz tt,a		   ;find the entry in the segment table
	lsh tt,-seglog
	move tt,st(tt)		   ;(we want the left half too)
	tlnn tt,st.pur
	  jrst false
true:	movei a,.atom T
	popj p,

.entry WRITEABLEP SUBR 002
writeablep:	hrrz tt,(a)
	setz a,
	calli a,400021
	jumpe a,true
	camge tt,hiseg
	jrst true
false:	setz a,
	popj p,

hiseg:	400000
FASEND